      * FILE : SUITE001.CBL
000200 IDENTIFICATION DIVISION.
000300 PROGRAM-ID. SUITE001.
000400 ENVIRONMENT DIVISION.
000500 CONFIGURATION SECTION.
000600 DATA DIVISION.
000700 WORKING-STORAGE SECTION.
000900     COPY CBUC0003.
           COPY CBUC0001.
001300 PROCEDURE DIVISION.
001700*     CALL CBU-main USING CBU-initialize CBU-MAIN-CALL-INTERFACE.
      
001500*     MOVE "SUITE1" TO CBU-SUITE-NAME.
001600*     MOVE "DESC SUITE1" TO CBU-SUITE-DESCRIPTION.
001800*     CALL CBU-main USING CBU-add-suite CBU-MAIN-CALL-INTERFACE.
      
002100*     MOVE "TS000001" TO CBU-TEST-NAME.
002200*     MOVE "TEST1 desc" TO CBU-TEST-DESCRIPTION.
      *     MOVE "TS000001" TO CBU-TEST-PROG-NAME
002300*     CALL CBU-main
      *          USING CBU-add-test-next CBU-MAIN-CALL-INTERFACE.
002400
002500*     CALL CBU-main USING CBU-run CBU-MAIN-CALL-INTERFACE.
002510
           CALL "CBUP0005" USING CBU-MAIN-CALL-INTERFACE.
      
           GOBACK.